From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 27 Mar 2009 15:58:16 +0000 (+0000)
Subject: (url-file-handler): Save match data.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~1071
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=6b5f2ec6eb1204482c7411250938fbfdaf19e620;p=emacs.git

(url-file-handler): Save match data.
---

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index a65ba63926c..49412482206 100644
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
+2009-03-27  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* url-handlers.el (url-file-handler): Save match data.
+
 2009-02-21  Jason Rumney  <jasonr@gnu.org>
 
 	* url-expand.el (url-default-expander): Use concat to combine
diff --git a/lisp/url/url-handlers.el b/lisp/url/url-handlers.el
index cf8f4fd4e3e..c06e841b2c8 100644
--- a/lisp/url/url-handlers.el
+++ b/lisp/url/url-handlers.el
@@ -132,7 +132,7 @@ the arguments that would have been passed to OPERATION."
 	(hooked nil))
     (if (and fn (fboundp fn))
 	(setq hooked t
-	      val (apply fn args))
+	      val (save-match-data (apply fn args)))
       (setq hooked nil
 	    val (url-run-real-handler operation args)))
     (url-debug 'handlers "%s %S%S => %S" (if hooked "Hooked" "Real")